home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 March / Ahoy_Magazine_85-03_1985_Double_L.d64 / salmon run (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  168 lines
  1. 30 poke56,48:poke52,48:clr
  2. 35 ifpeek(16375)=8then700
  3. 38 print"[147]preparing machine language..."
  4. 40 poke53265,27:poke56334,peek(56334)and254:poke1,peek(1)and251:fori=.to79
  5. 42 poke14720+i,peek(53632+i):next:poke1,peek(1)or4:poke56334,peek(56334)or1
  6. 44 fori=53104to53151:pokei,1:next
  7. 45 i=.:z=.
  8. 46 reada:ifa<0then48
  9. 47 poke49152+i,a:z=z+a:i=i+1:goto46
  10. 48 ifz<>160018thenprint"error in code data":stop
  11. 49 i=.:z=.
  12. 50 reada:ifa<0then52
  13. 51 poke53152+i,a:z=z+a:i=i+1:goto50
  14. 52 ifz<>4625thenprint"error in variable data":stop
  15. 53 i=.:z=.
  16. 54 reada:ifa<0then56
  17. 55 poke14336+i,a:z=z+a:i=i+1:goto54
  18. 56 ifz<>55366thenprint"error in character data":stop
  19. 57 i=.:z=.
  20. 58 reada:ifa<0then60
  21. 59 poke15936+i,a:z=z+a:i=i+1:goto58
  22. 60 ifz<>25190thenprint"error in sprite data":stop
  23. 62 goto700
  24. 100 rem*****set-up playfield*****
  25. 105 poke53265,11
  26. 110 print"[147]":poke53280,5:poke53281,3:poke53269,.:poke53270,peek(53270)or16
  27. 120 poke53272,30:poke53275,.:poke53276,3:poke53282,1:poke53283,.:poke53285,1
  28. 130 poke53286,.:poke53287,6:poke53288,11
  29. 140 fori=56136to56295:pokei,14:next:fori=55656to55659:pokei,14:pokei+40,14:next
  30. 150 fori=55692to55695:pokei,8:pokei+40,8:next
  31. 160 poke1234,36:poke1235,37:poke1274,38:poke1275,39:poke55506,1:poke55507,1
  32. 170 poke55546,1:poke55547,1:poke1211,36:poke1212,37:poke1251,38:poke1252,39
  33. 180 poke55483,1:poke55484,1:poke55523,1:poke55524,1
  34. 190 fori=1384to1387:pokei,i-1363:next:fori=1424to1426:pokei,i-1399:next
  35. 200 fori=1420to1423:pokei,i-1392:next:fori=1461to1463:pokei,i-1428:next
  36. 210 fori=1864to1882:pokei,40:pokei+40,40:pokei+80,40:next
  37. 220 fori=1984to2023:pokei,40:next
  38. 230 poke52992,140:poke52993,140:poke52994,96:poke52995,240:poke52996,.
  39. 240 poke52997,.:z=peek(53278):fori=53072to53103:pokei,.:next:poke53036,.
  40. 250 poke53269,3:poke53037,.
  41. 260 poke53211,255:poke53212,255:poke53213,12:poke54296,79:poke54294,55
  42. 270 poke54295,129:poke54277,128:poke54278,240:poke54276,129:poke54273,255
  43. 280 poke54284,128:poke54285,240:poke54283,17:poke1025,48:poke1026,48:poke1061,48
  44. 290 poke1062,48:poke55297,6:poke55298,6:poke55333,.:poke55334,.:poke53044,.
  45. 300 poke53045,.:poke53265,27
  46. 500 sys50237
  47. 510 print"[147]":poke53272,21:fori=54272to54296:pokei,.:next:poke53281,6
  48. 515 l=peek(53044):r=peek(53045):poke53269,.
  49. 520 ifl>hsthenhs=l
  50. 522 ifr>hsthenhs=r
  51. 525 ifl>rthenprinttab(08)"the left (blue) player won!":goto535
  52. 527 ifl<rthenprinttab(08)"the right (black) player won!":goto535
  53. 530 printtab(16)"it's a tie!"
  54. 535 printtab(15)"left score="l:printtab(14)"right score="r
  55. 540 fori=1to5000:next
  56. 700 poke53280,5:poke53281,3:print"[147]":printtab(15)"[144]salmon run"
  57. 705 printtab(19)"by":printtab(15)"mike wacker":print"high score= "hs
  58. 707 printtab(12)"press f1 to play"
  59. 710 poke53248,174:poke53249,210:poke53264,.:poke53269,1:poke53287,6:x(3)=253
  60. 712 poke53276,1:poke53285,1:poke53286,.:a=10:b=.:x(.)=254:x(1)=253:x(2)=252
  61. 714 getz$:if z$="" then 714
  62. 716 if z$="[133]" then 100
  63. 718 a=10:b=b+1:ifb=4thenb=.
  64. 720 poke2040,x(b):goto714
  65. 999 rem****code data****
  66. 1000 data133,169,134,140,132,141,166,169,202,16,2,166,169,198,139,208,247,173
  67. 1002 data18,208,133,139,138,72,166,140,164,141,104,96,254,14,207,208,3,254,17
  68. 1004 data207,189,17,207,240,21,189,14,207,201,88,208,14,169,.,157,84,207,173
  69. 1006 data21,208,61,172,207,141,21,208,96,173,4,207,141,46,207,173,.,208,141,47
  70. 1008 data207,173,1,208,141,48,207,208,18,173,5,207,141,46,207,173,2,208,141,47
  71. 1010 data207,173,3,208,141,48,207,173,46,207,221,17,207,208,17,173,47,207,56,253
  72. 1012 data14,207,176,2,73,255,201,24,176,36,144,31,173,46,207,208,11,173,47,207
  73. 1014 data56,253,14,207,144,20,176,9,189,14,207,56,237,47,207,144,9,73,255,201
  74. 1016 data24,176,3,169,1,96,169,.,96,206,49,207,208,59,206,128,207,208,54,169
  75. 1018 data4,141,128,207,206,129,207,173,129,207,106,162,2,176,17,189,187,207,32
  76. 1020 data45,196,189,190,207,157,131,7,189,193,207,208,15,189,196,207,32,54,196
  77. 1022 data189,199,207,157,131,7,189,202,207,157,171,7,202,16,216,206,130,207,240
  78. 1024 data1,96,169,160,32,182,196,173,87,207,240,16,169,.,141,87,207,141,51,207
  79. 1026 data169,7,141,50,207,141,89,207,173,89,207,240,35,206,50,207,16,7,169,.,141
  80. 1028 data89,207,240,16,174,50,207,173,51,207,208,5,189,205,207,208,3,189,212,207
  81. 1030 data141,7,212,141,8,212,96,173,88,207,240,250,169,.,141,88,207,169,1,208
  82. 1032 data191,162,1,222,112,207,240,3,76,36,194,189,80,207,208,11,189,82,207,208
  83. 1034 data3,169,48,44,169,88,44,169,18,157,112,207,189,80,207,240,20,189,.,207
  84. 1036 data201,197,208,7,169,.,157,80,207,240,6,254,.,207,76,246,193,188,.,220
  85. 1038 data152,41,1,208,10,189,.,207,201,69,240,3,222,.,207,152,41,2,208,10,189
  86. 1040 data.,207,201,197,240,3,254,.,207,152,41,4,208,25,189,4,207,208,7,189,2,207
  87. 1042 data201,24,240,13,222,2,207,189,2,207,201,255,208,3,222,4,207,152,41,8,208
  88. 1044 data20,189,4,207,240,7,189,2,207,201,64,240,8,254,2,207,208,3,254,4,207,152
  89. 1046 data41,16,208,10,189,.,207,201,102,176,3,157,80,207,222,114,207,208,15,169
  90. 1048 data8,157,114,207,222,116,207,16,5,169,3,157,116,207,188,116,207,189,80,207
  91. 1050 data240,4,169,255,208,3,185,160,207,157,248,7,138,10,168,189,2,207,153,.
  92. 1052 data208,189,.,207,153,1,208,172,16,208,189,4,207,240,6,152,29,164,207,208
  93. 1054 data4,152,61,166,207,141,16,208,202,48,3,76,61,193,96,162,2,189,84,207,208
  94. 1056 data56,206,7,207,240,3,76,31,196,206,118,207,208,248,169,13,141,118,207,157
  95. 1058 data84,207,169,.,157,8,207,157,11,207,157,14,207,157,17,207,169,218,157,20
  96. 1060 data207,169,5,32,.,192,157,23,207,169,1,32,.,192,157,26,207,222,119,207
  97. 1062 data208,200,234,234,234,234,234,234,189,11,207,240,75,169,64,157,119,207
  98. 1064 data189,29,207,240,13,222,32,207,208,54,169,.,157,29,207,157,35,207,189,35
  99. 1066 data207,240,18,222,20,207,222,38,207,208,33,169,5,157,29,207,157,32,207,208
  100. 1068 data23,32,38,196,32,164,196,208,11,192,218,208,11,169,.,157,11,207,240,4
  101. 1070 data192,235,240,245,32,30,192,76,85,195,189,8,207,240,89,169,32,157,119,207
  102. 1072 data189,41,207,10,168,185,.,208,157,14,207,185,1,208,24,105,13,157,20,207
  103. 1074 data188,41,207,185,4,207,157,17,207,189,14,207,217,168,207,208,44,189,17
  104. 1076 data207,217,170,207,208,36,189,20,207,201,109,176,29,141,87,207,169,.,153
  105. 1078 data82,207,157,84,207,173,21,208,61,172,207,141,21,208,189,26,207,24,105
  106. 1080 data1,153,44,207,76,85,195,169,64,157,119,207,189,14,207,201,160,208,21,234
  107. 1082 data234,234,169,.,157,29,207,169,40,157,38,207,157,11,207,157,35,207,208
  108. 1084 data14,173,18,208,201,37,176,7,169,7,32,.,192,240,224,32,30,192,189,84,207
  109. 1086 data208,3,76,31,196,173,6,207,61,175,207,240,69,173,6,207,41,1,240,41,173
  110. 1088 data80,207,240,36,32,65,192,240,31,169,.,157,41,207,168,189,23,207,208,5
  111. 1090 data169,1,153,82,207,169,.,157,11,207,169,1,157,8,207,141,88,207,208,21,173
  112. 1092 data6,207,41,2,240,14,173,81,207,240,9,32,85,192,240,4,169,1,208,206,222
  113. 1094 data122,207,208,13,169,10,157,122,207,189,125,207,73,1,157,125,207,188,125
  114. 1096 data207,189,11,207,208,5,189,8,207,240,5,185,178,207,208,13,189,26,207,208
  115. 1098 data5,185,180,207,208,3,185,182,207,157,250,7,173,21,208,29,175,207,141,21
  116. 1100 data208,189,23,207,208,3,169,.,44,169,1,157,41,208,169,208,133,252,189,184
  117. 1102 data207,133,251,189,14,207,160,.,145,251,200,189,20,207,145,251,172,16,208
  118. 1104 data189,17,207,240,6,152,29,175,207,208,4,152,61,172,207,141,16,208,202,48
  119. 1106 data3,76,45,194,96,254,20,207,188,20,207,96,157,91,7,169,19,141,174,7,96
  120. 1108 data157,91,7,169,20,208,245,32,165,192,32,43,194,32,59,193,172,44,207,240
  121. 1110 data34,169,.,141,44,207,152,24,109,52,207,141,52,207,238,2,4,173,2,4,201,58
  122. 1112 data208,8,169,48,141,2,4,238,1,4,136,208,235,172,45,207,240,34,169,.,141,45
  123. 1114 data207,152,24,109,53,207,141,53,207,238,38,4,173,38,4,201,58,208,8,169,48
  124. 1116 data141,38,4,238,37,4,136,208,235,206,219,207,208,164,206,220,207,208,159
  125. 1118 data206,221,207,208,154,96,189,17,207,208,12,189,14,207,201,160,176,3,169
  126. 1120 data.,44,169,1,96,141,130,207,173,30,208,141,6,207,96,-1
  127. 1122 rem****variables****
  128. 1124 data252,253,254,253,1,2,254,253,24,64,.,1,251,247,239,4,8,16,250,251,250
  129. 1126 data250,249,249,4,6,8,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,32,30
  130. 1128 data27,23,18,12,5,6,13,19,24,28,31,33,112,142,6,-1
  131. 1130 rem****programable characters****
  132. 1132 data.,.,.,.,.,.,.,.,255,223,247,247,247,255,127,255,192,252,255,223,245,255
  133. 1134 data255,255,.,.,.,.,.,64,192,192,247,253,255,253,245,247,247,253,255,247
  134. 1136 data253,253,255,127,255,127,192,240,240,192,64,65,116,240,223,255,127,255
  135. 1138 data223,247,253,253,255,223,213,127,223,223,215,247,240,240,252,252,223,247
  136. 1140 data247,255,255,95,247,253,255,223,247,253,192,252,255,255,255,255,255,255
  137. 1142 data.,.,.,.,64,208,192,192,247,247,253,255,255,255,253,253,223,223,127,223
  138. 1144 data247,255,255,255,80,244,241,192,192,192,240,240,255,127,127,221,221,223
  139. 1146 data223,223,127,223,255,255,255,127,223,255,240,241,84,124,221,255,247,255
  140. 1148 data20,64,64,68,17,64,1,20,16,64,1,84,.,80,5,64,63,253,250,255,255,253,63
  141. 1150 data15,239,255,119,239,111,239,255,255,255,223,175,235,250,95,255,255,112
  142. 1152 data212,252,252,252,252,240,192,.,.,.,3,15,63,255,255,15,63,255,255,255,240
  143. 1154 data192,.,.,192,192,192,.,.,.,.,63,253,250,255,255,253,63,15,247,255,238
  144. 1156 data247,246,247,255,255,255,251,245,215,95,250,255,255,112,212,252,252,252
  145. 1158 data252,240,192,.,.,.,.,.,.,.,.,.,3,3,3,.,.,.,.,240,252,255,255,255,15,3,.
  146. 1160 data.,.,.,192,240,252,255,255,252,254,255,126,31,30,28,127,.,.,192,240
  147. 1162 data248,252,252,252,255,253,127,31,3,3,.,.,190,254,252,248,224,.,.,.,255
  148. 1164 data255,255,255,255,255,255,255,-1
  149. 1166 rem****sprite data****
  150. 1168 data.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,16,127,224,25,255,248,27,255
  151. 1170 data24,31,255,24,31,255,248,27,255,248,25,255,248,16,127,224,.,.,.,.,.,.,.
  152. 1172 data.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
  153. 1174 data4,127,128,6,254,96,7,254,96,7,255,224,6,255,224,4,127,128,.,.,.,.,.,.
  154. 1176 data.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
  155. 1178 data.,.,.,.,8,124,.,12,255,128,7,254,96,7,254,96,6,255,224,2,127,224,.,3,128
  156. 1180 data.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,40,.,.
  157. 1182 data166,.,130,42,2,160,10,10,160,8,10,170,40,170,170,170,170,170,170,170
  158. 1184 data170,170,170,42,170,168,42,187,168,40,179,40,.,51,.,.,51,.,.,192,192,.
  159. 1186 data192,192,3,51,48,.,.,.,.,.,.,.,.,.,.,.,.,.,.,40,.,.,166,.,2,42,.,.,10,.
  160. 1188 data.,8,.,10,40,160,42,170,168,42,170,168,170,170,170,170,170,170,170,187
  161. 1190 data170,40,179,40,40,51,40,.,51,.,.,192,192,.,192,192,3,51,48,.,.,.,.,.
  162. 1192 data.,.,.,.,.,.,.,.,.,40,.,.,166,.,2,42,.,.,10,.,.,8,.,10,40,160,42,170
  163. 1194 data168,42,170,168,42,170,168,42,170,168,170,187,170,168,179,42,168,51,42
  164. 1196 data160,51,10,128,192,194,.,192,192,3,51,48,.,128,192,194,128,51,2,128,51
  165. 1198 data2,160,51,10,168,51,42,168,179,42,170,187,170,42,170,168,42,170,168,42
  166. 1200 data170,168,42,170,168,10,40,160,.,8,.,.,10,.
  167. 1202 data.,42,.,.,38,.,.,42,.,.,8,.,.,8,.,.,.,.,.,.,.,.,-1
  168.